64'er 1992 February/64er_Magazin_92-02_1992_Markt__Technik_de_Side_A.d64/basic tool +4

Commodore BASIC | 2022-10-26 | 1KB | 21 lines

0 dima(73):forh=0to73:reada(h):next:print"[147](w)+(c) sven bastrop":input"name";n$
1 open1,8,4,n$+",p,r":o=-2:input"autostart";q$:on-(q$="n")goto4:form=196to2048
2 a=peek(m):gosub19:next:pokeq,198:pokeq+1,0:pokeq+2,4:poke4531,147:poke4532,82
3 poke4533,213:poke4534,13:forh=0to88:poke4412+h,0:poke5004+h,32:next:n=n-2
4 input"sys-zeile";s$:on-(s$="n")goto8:input"reset aus";d$:on-(d$="n")goto6
5 forh=0to73:gosub18:next:goto7:data1,8
6 forh=0to27:gosub18:next:a=40:gosub19:forh=54to64:gosub18:next:data11,8,199,7
7 a=0:gosub19:gosub14:gosub14:o=o-2:goto9:data158,50,48,54,49,,,,165,174
8 forh=0to1:gosub14:gosub19:next:data133,45,165,175,133,46
9 forh=0to3:gosub14:on-(st=66)goto15:gosub19:next:data169,234,141,40,3,169,128
10 gosub14:ifa=32then10:data133,56,162,8,189,64,8,157,,128,202,16,247,32,163,253
11 gosub19:on-(a=0)goto9:on-(a=34)goto13:on-(a<>143)goto10:data32,83,228,32,91
12 gosub14:on-(a>0)goto12:goto11:data255,88,169,74,133,43,32,51,165,32,89,166,76
13 gosub14:on-(a=0)goto11:gosub19:on-(a=34)goto10:goto13:data174,167,41,8,188
14 get#1,a$:a=asc(a$+chr$(0)):a$=chr$(a):o=o+1:return:data254,195,194,205,56,48
15 gosub17:open1,8,2,"@:n/"+n$+",p,w":forh=1ton:print#1,chr$(peek(q-1+h));:next
16 gosub17:o=o-1:print"alt:";o:print"neu:";n:printn/o*100"% sind uebrig!":end
17 poke5948,(-(m=0)*peek(5948)):close1:open1,8,15,"i":close1:return
18 a=a(h):gosub19:return:rem            ======== written by sven bastrop =======
19 q=4096:pokeq+n,a:n=n+1:return:rem    ====== contact me under 04423/6962 =====